home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / phrase that pays (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  151 lines
  1. 0 rem**********************************  ****                              ****
  2. 1 rem      wheel of fortune        ****  ****      by   djb shibley        ****
  3. 2 rem                              ****  **************************************
  4. 10 poke650,128:poke788,52:printchr$(142)chr$(8);:gosub5000:goto100
  5. 15 print"";:forj=1to5:print""sp$" ":next:return
  6. 20 print"";:forj=1ton:print""n$(j)"  "m(j)"[157]     ":next:return
  7. 25 print"[150]"spc(17)ca$(ca)"":printspc(20-(len(q$)/2))q$""
  8. 27 ifu$<>""thenprint"[152]used : "u$
  9. 29 return
  10. 35 u=54272::pokeu+1,20:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
  11. 36 fork=1to10:next:pokeu+4,16:return
  12. 40 u=54272::pokeu+1,220:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,17
  13. 41 fork=1to10:next:pokeu+4,16:return
  14. 45 u=54272::pokeu+1,5:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,7
  15. 46 fork=1to10:next:pokeu+4,16:return
  16. 50 u=54272::pokeu+1,50:pokeu+5,9:pokeu+6,9:pokeu+24,15:pokeu+4,7
  17. 51 fork=1to10:next:pokeu+4,16:return
  18. 100 poke53280,13:poke53281,14:print"[147][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  19. 105 forj=.to22:print"[166][166]";:next
  20. 110 print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][157][148][166]"
  21. 115 print"[153]phrase that pays[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  22. 116 print"[155]by[144]   shibley"
  23. 120 print"          loading vocabulary[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub35
  24. 125 open2,8,2,"0:nmgmlst,s,r":input#2,t:ifst=.then135
  25. 130 close2:print"[144]   check  disk    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:goto125
  26. 135 forj=1tot:input#2,w$(j):next:close2
  27. 140 gosub35:print"[144]  load  complete  "
  28. 145 z$="press number of players (1-4)":print"";:gosub1000
  29. 150 n=val(x$):ifn<1orn>4thenprint"[145][145]":goto145
  30. 155 gosub35:print"[144]    number of players is [157]"n"[157]   ":fori=1ton:gosub35
  31. 160 print"name of player"i" ";:z=9:gosub1050:ifx$=""then600
  32. 165 n$(i)=z$:ifz$=""thenn$(i)="player"+str$(i)
  33. 168 iflen(n$(i))<9thenn$(i)=n$(i)+" ":goto168
  34. 170 print:print"[145][145][144]            [157]"i"[157] -  "n$(i)"       ":nexti:h=1
  35. 200 forj=1ton:m(j)=.:next:gosub1100:gosub20
  36. 205 w=int(rnd(.)*t+1):ifw>t orw=<1then205
  37. 210 a$=right$(w$(w),len(w$(w))-1):ca=val(left$(w$(w),1)):q$="":forj=1tolen(a$)
  38. 215 x$=mid$(a$,j,1):ifx$>"@"andx$<"["thenq$=q$+"-":goto225
  39. 220 q$=q$+x$
  40. 225 next:us$="":wi$="no  one  "
  41. 250 printbc$"[144]":z$=n$(h)+" - spin wheel":printb$"       ";:poke198,.:gosub1000
  42. 260 ifx$=""then545
  43. 270 printbc$:gosub1200:forj=1to999:next:ifm$<>"-turn"then285
  44. 275 gosub45:forj=1to25:printb$"     [144]"n$(h)"  you lose a turn"
  45. 280 fork=1to75:next:printbc$:fork=1to50:next:next:z=.:goto450
  46. 285 ifm$<>"- $$$"then300
  47. 290 gosub45:forj=1to25:printb$"   [144]"n$(h)"  you lose your money"
  48. 295 fork=1to75:next:printbc$:fork=1to50:next:next:m(h)=0:z=.:goto450
  49. 300 forj=1to999:next:gosub15:print""spc(15)"[144]solve puzzle[154]"
  50. 305 printspc(20)"or[144]":printspc(15)"guess letter"
  51. 310 z$=n$(h)+"  choose s or g":gosub35
  52. 311 printb$"     [151]";:poke198,.:gosub1000
  53. 330 ifx$<>""andx$<>"s"andx$<>"g"then311
  54. 335 gosub15:printbc$:ifx$=""then545
  55. 340 gosub25:ifx$="g"then365
  56. 345 gosub1350:ifq$<>a$thenz=.:goto460
  57. 355 tm(h)=tm(h)+m(h):wi$=n$(h):goto525
  58. 365 printb$"[144]     "n$(h)"[151]  choose a letter":y=99:poke198,.
  59. 369 ify<1thenz=.:goto460
  60. 370 print"[152]"y"[157] ":x=.:pokeu+1,19:pokeu+5,24:pokeu+6,8:pokeu+24,6
  61. 371 pokeu+4,17:forj=5to1step-1:pokeu+24,j:fork=1to55:next:next:pokeu+4,16
  62. 375 forj=1to40:getx$:ifx$>"@"andx$<"["thenj=40:x=1
  63. 380 next:y=y-1:ifx=.then369
  64. 390 if(x$="a"orx$="e"orx$="i"orx$="o"orx$="u")andm(h)<300theny=y-5:goto369
  65. 395 x=.:forj=1tolen(u$):ifx$=mid$(u$,j,1)thenx=1
  66. 400 next:ifx=1theny=y-10:goto369
  67. 405 u$=u$+x$
  68. 410 ifx$="a"orx$="e"orx$="i"orx$="o"orx$="u"thenm(h)=m(h)-300:m$="   0"
  69. 420 z=.:forj=1tolen(a$):ifx$<>mid$(a$,j,1)then435
  70. 425 q$=left$(q$,j-1)+x$+right$(q$,len(q$)-j):m(h)=m(h)+val(m$):z=1
  71. 430 gosub40:gosub25:fork=1to900:next
  72. 435 next:printbc$
  73. 450 gosub20:ifq$=a$thenwi$=n$(h):tm(h)=tm(h)+m(h):goto525
  74. 455 ifz=1thenfork=1to3000:next
  75. 460 ifz=.thengosub45:h=h+1:ifh>nthenh=1
  76. 465 x=.:forj=1tolen(q$):x$=mid$(a$,j,1):ifmid$(q$,j,1)=x$then475
  77. 470 ifx$<>"a"andx$<>"e"andx$<>"i"andx$<>"o"andx$<>"u"thenx=1:j=len(q$)
  78. 475 next:ifx=1thengosub15:goto250
  79. 500 print"   all vowels left":z=len(q$):forj=1to30:gosub50:next
  80. 505 fori=1ton:gosub1350:ifq$=a$theni=n:goto520
  81. 510 h=h+1:ifh>nthenh=1
  82. 520 nexti:ifq$=a$thentm(h)=tm(h)+m(h):wi$=n$(h)
  83. 525 q$=a$:u$="":gosub15:gosub25
  84. 530 print""wi$"[156]  wins this round"
  85. 535 print"[223][146]game totals[169]"
  86. 540 forj=1ton:m(j)=tm(j):next:gosub20
  87. 545 z$="another round  (press y or n)":printb$"    ";:gosub1000
  88. 550 ifx$<>""andx$<>"y"andx$<>"n"then545
  89. 555 ifx$="y"then200
  90. 600 poke53280,3:gosub15:forj=1ton:m(j)=tm(j):next:gosub20:fordl=1to2000:next
  91. 601 print"[147]"bc$b$"    phrase that pays  [154]by shibley"
  92. 602 poke53280,3:printspc(14)"[156]game  ended[158][157][157][157][157][157][157][157][157][157][157][157][197][197][197][197][197][197][197][197][197][197][197][152]"
  93. 605 poke788,49:poke650,.:load"hello connect",8:end
  94. 1000 printz$left$(l$,len(z$));:forj=1to35:getx$:ifx$=""thennext:goto1010
  95. 1005 j=35:next:return
  96. 1010 printleft$(sp$,len(z$))left$(l$,len(z$));:
  97. 1011 forj=1to35:getx$:ifx$=""thennext:goto1000
  98. 1015 j=35:next:return
  99. 1050 z$="":poke198,.
  100. 1055 print"[209][157]";:forj=1to40:getx$:ifx$=""thennext:goto1065
  101. 1060 j=40:next:goto1070
  102. 1065 print" [157]";:forj=1to30:getx$:ifx$=""thennext:goto1055
  103. 1066 j=30:next
  104. 1070 ifx$=chr$(13)thenreturn
  105. 1071 ifx$=""then545
  106. 1075 ifx$="[157]"orx$=chr$(20)andlen(z$)<1then1055
  107. 1080 ifx$="[157]"orx$=chr$(20)thenz$=left$(z$,len(z$)-1):print"[157]  [157][157]";:goto1055
  108. 1085 ifx$=","orx$=chr$(34)orx$=";"orx$=":"orx$<" "orx$>"_"orlen(z$)=zthen1055
  109. 1090 printx$;:z$=z$+x$:goto1055
  110. 1100 poke53280,4:poke53281,15:print"[147]"spc(12)"shibley  software"
  111. 1105 print"[169]                                    [223]";
  112. 1110 forj=1to5:print" "spc(36)" ";:next
  113. 1115 forj=1to15:print"                                      ";:next
  114. 1120 print"[146][144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":print"[221]"spc(36)"[221]"
  115. 1125 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":return
  116. 1200 gosub15:print""spc(23)"_[192][192]":forj=631to640:pokej,32:next:u=54272
  117. 1205 x1$="     ":x2$="     ":x3$="     ":x4$="     ":x5$="     "
  118. 1209 x=.:y=.:forj=1to15
  119. 1210 x$=a$(rnd(.)*30+1):x1$=x2$:x2$=x3$:x3$=x4$:x4$=x5$:x5$=x$
  120. 1217 pokeu+1,21:pokeu+5,2:pokeu+6,4:pokeu+24,6:pokeu+4,17:pokeu+24,5
  121. 1218 pokeu+24,4:pokeu+24,3:pokeu+24,2:pokeu+24,1:pokeu+4,16
  122. 1220 print""spc(17)x1$"[157][157][157][157][157]"x2$"[157][157][157][157][157]"x3$"[157][157][157][157][157]"x4$"[157][157][157][157][157]"x5$
  123. 1235 ifx=.thenj=1:getx$:ifx$=""thenx=1
  124. 1240 ifx=1thenfork=1toj*36:next
  125. 1244 ifx=1thenif(j=14andrnd(.)>.5)or(j=13andrnd(.)>.8)thenj=15
  126. 1245 next:forj=1to250:next:m$=x3$:print""spc(17)"[144]"m$:return
  127. 1350 printb$"    [144]"n$(h)"[151]  return your guess":print""sp$
  128. 1355 print""spc(20-(len(q$)/2));
  129. 1360 z=len(a$):gosub1050:ifx$=""then600
  130. 1361 ifz$=a$thenq$=z$:gosub40
  131. 1362 ifz$<>a$thengosub45
  132. 1365 printbc$:print""sp$:return
  133. 5000 dimw$(600),a$(30):ca$(1)="person":ca$(2)="place ":u=54272
  134. 5005 ca$(3)="thing ":ca$(4)="phrase"
  135. 5010 l$="[157][157][157][157][157][157][157][157][157][15